мемо и текст

[nikolas0]

мемо2 не пустое получается,а с Got it.
а вот мемо1 так и осталось пустым

[Alex Cones]

Значит во время выполнения появилась какая-то ошибка. Уберите Try except и посмотрите, какая.

[nikolas0]

оставил вот так

procedure TForm1.Button1Click(Sender: TObject);
begin


   Http := TIdHTTP.Create(Self);
   HTTP.HandleRedirects := TRUE;
   chislo :=Edit1.Text;
   page :=http.Get('http://zalil.ru/'+chislo);

  Memo1.Text :=page;

   Memo2.Text := 'Got it!';

end;

ошибок никаких не вылетает,но мемо так и пустое

[nikolas0]

оставил вот так

procedure TForm1.Button1Click(Sender: TObject);
begin


   Http := TIdHTTP.Create(Self);
   HTTP.HandleRedirects := TRUE;
   chislo :=Edit1.Text;
   page :=http.Get('http://zalil.ru/'+chislo);

  Memo1.Text :=page;

   Memo2.Text := 'Got it!';

end;

ошибок никаких не вылетает,но мемо так и пустое

[nikolas0]

всё ещё актуально