var
s: string;
if Pos('wyslij_',MessageContent) > 0 then begin
s:= MessageContent;
delete(s,1,7);
IdMessage1.From.Address:= '
[email protected]';
IdMessage1.Recipients.EMailAddresses:= '
[email protected]';
IdMessage1.From.name:= 'konto';
IdMessage1.Subject:= 'mail';
IdMessage1.Body.Append('testowa...