with IdFTP1 do
  begin
    Host :=  'xxx';
    Username := 'xxx';
    Password := 'xxx';
    passive := True;
    Connect;
    ChangeDir('Service_Update');
    ChangeDir('QA');
    Self.Caption := Size('jam.zipper').tostring;
    TransferType := ftBinary; //tried with and without
    Get('jam.zipper','jam.zipper',true);
    Button1.Caption := 'Done'; //never gets here
  end;