procedure TfrmMain.BtnSaveLogClick(Sender: TObject);
var
i :integer;
begin
for i := 0 to ComboBoxCmd.Items.Count-1 do
begin
IdTelnet1.WriteLn(ComboBoxCmd.Items.Text);
end;
IdTelnet1.WriteLn('omshow trk holding'+#13);
IdTelnet1.WriteLn('quit all');
RichEdit1.SetFocus;
//RichEdit1.PlainText :=true;
RichEdit1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+formatdatetime('yyyy-mm-dd hh',now)+'.txt');
end;