HttpCli1 repeat problem

procedure TForm1.Button1Click(Sender: TObject);
var
data : string;
begin
ind := 0;
repeat
inc(ind);
if not (memo2.lines[ind] = '') then begin
Data := memo2.lines[ind];
    HttpCli1.SendStream := TMemoryStream.Create;
    HttpCli1.SendStream.Write(Data[1], Length(Data));
    HttpCli1.SendStream.Seek(0, 0);
    HttpCli1.RcvdStream := TMemoryStream.Create;
    HttpCli1.URL := Trim('http://ogmae.de/game/galaxy.php? session='+edit1.Text);
    HttpCli1.PostAsync;
  end;
      until memo2.lines[ind] = '';

Jeg får en besked med at komponenten er busy. og hvis jeg sætter
if HTTPCli1.State = httpReady then begin ind går programmet bare kold.