procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Combobox1.Text = 'xs' then begin showmessage('wybrano xs'); end;
if Combobox1.Text = 'xx' then begin showmessage('wybrano xx'); end;
end;
ReleaseCapture();
SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION,0);