IdFTPCommon.dcu nicht auf Computer

[omata]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MemStream: TMemoryStream;
  IdFTP1: TIdFTP;
begin
  IdFTP1 := TIdFTP.Create(nil);
  MemStream := TMemoryStream.Create;
  try
    Memo1.Lines.SaveToStream(MemStream);
    MemStream.Position := 0;
    with IdFTP1 do
    begin
      Host := 'ftp.MyFtpServer.de';
      Username := 'MyUsername';
      Password := 'MyPassword';
      Passive := True;
      TransferType := ftASCII;
      Connect(True, 3000);
      if Connected then
      begin
        Put(MemStream, 'MyFile.txt');
        Disconnect;
      end;
    end;
  finally
    MemStream.Free;
    IdFTP1.Free;
  end;
end;