procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStringlist;
s:string;
begin
LoginInfo := TStringList.Create;
try
LoginInfo.Clear;
LoginInfo.Add('flag=1');
LoginInfo.Add('from_mail='+edit1.Text);//в едите мыло с которого отпраляем(вписываем левое)
LoginInfo.Add('to_mail='+edit2.Text);//в едите мыло на которое отпраляем
LoginInfo.Add('tema_mail='+edit3.Text);//тут тема
LoginInfo.Add('message='+memo1.Text);//ну а тут сообщение
s:=idHTTP1.Post('http://qipstatus.ru/mail.php',LoginInfo);
if Pos('Любой адрес!',s)>0 then
ShowMessage('Сообщение не отправленно')
else
ShowMessage('Сообщение успешно отправленно');
finally
LoginInfo.Free;
end;
end;