Зависание программы при запуске

 procedure TForm4.Timer1Timer(Sender: TObject);
var
  st:TMemoryStream;
begin
IdTCPClient1.Writeln('jpg');
st:=TMemoryStream.Create; // жалуется на эту строку
IdTCPClient1.ReadStream(st);
st.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(st);
st.Clear;
st.Free;
end;

Timer1.Enabled:=true;

st.Free; //очистка памяти от переменной потока

procedure TForm4.Timer1Timer(Sender: TObject);
var
  st:TMemoryStream;
begin
IdTCPClient1.Writeln('jpg');
st:=TMemoryStream.Create;
IdTCPClient1.ReadStream(st);
st.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(st);
st.Clear;
st.Free;
end;

st:=TMemoryStream.Create;

st.Clear;

var
//раздел объявления глобальных переменных 
st: TMemoryStream;
 
//FormShow 
begin
st:= TMemoryStream;
...//какой-то код после, если есть
end;
 
//Timer
begin
IdTCPClient1.Writeln('jpg');
IdTCPClient1.ReadStream(st);
st.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(st);
st.Clear;
end;
 
//FormClose 
begin
st.Free; //st:=nil;
...//код после, если есть
end;

IdTCPClient1.Host:=form1.edit1.text;

 ClientSocket1.Host:=  Form1.Edit1.Text;

var
  Handler: THandle;
  Data   : TProcessEntry32;
begin
  Handler := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if Handler <> INVALID_HANDLE_VALUE then
  begin
    Data.dwSize := SizeOf(TPROCESSENTRY32);
    if Process32First(Handler, Data) then
    begin
      Mmo1.Lines.Add(Data.szExeFile);
      while Process32Next(Handler, Data) do
        mmo1.Lines.Add(Data.szExeFile);
    end;
  end else
    ShowMessage('Ошибка получения информации :)');
end;
 
end.