在 ftp的FTPOnConnected 事件写入:
procedure TfrmMain.FTPConnected(Sender: TObject);
begin
// FTP.DefStringEncoding := IndyTextEncoding(encOSDefault); // xe4 wjs
FTP.DefStringEncoding := IndyTextEncoding_OSDefault; // this ok indy 10.6.0 d7
StatusBar.Panels[0].Text := '连接';
end;