procedure TForm1.btn5Click(Sender: TObject);
var
m:Pchar;
begin
if edt2.Text=''
then
ShowMessage('Введите пароль для регистрации нового номера ICQ');
sleep(2000);
Image1.Visible:=true;
pnl2.Caption:='Картинка полученна...'
end;

procedure TForm1.btn5Click(Sender: TObject);
var
m:Pchar;
begin
if edt2.Text='' then
ShowMessage('Введите пароль для регистрации нового номера ICQ')
else begin
  Image1.Visible := true;
  pnl2.Caption := 'Картинка получена..'
end;
end;