[ShamanVV]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Signature := 'siganture='; 
if (edit1.text='') and (edit2.text='') then showmessage('Все поля пустые')
else
 if (edit1.text<>'') and (edit2.text<>'') then begin
Vterm_id := Edit1.Text + '&';
  User_ip := Edit2.Text + '&';
  Edit3.Text := ComboBox1.Items [ComboBox1.ItemIndex] + Vterm_id + User_ip + Signature;
end;
 If edit1.text='' then begin 
 User_ip := Edit2.Text + '&';
  Edit3.Text := ComboBox1.Items [ComboBox1.ItemIndex] + User_ip + Signature;
end;
  if edit2.text='' then begin
  Vterm_id := Edit1.Text + '&';
  Edit3.Text := ComboBox1.Items [ComboBox1.ItemIndex] + Vterm_id  + Signature;
end;
end;

MAD: не забываем про теги, иначе будет расцениваться как нарушение правил форума.
Вот так.