Ajuda delphi

[SeaCrusher 0]

Olá queria saber como eu faço para pegar a primeira linha de um memo e colar no edit.

 

e depois apagar a primeira linha do delphi, então uma proxima linha ja vai ser copiada, virando um ciclo

 

delphi 7

[DarkShade 52]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[SeaCrusher 0]

vlw mano, na hora que descobri o codigo eu vi esse post kkkkkkkkkkkkk

 

obrigado...

 

tenho outro problema se puder me ajudar, estava testando um programa q fiz q para fazer spam de email, entao testei coloquei 50 emails meus repitidos, só que quando foi mandando, ele parou, parece que o yahoo estava bloqueando os emails, para evitar spam. tem como eu burlar esse sistema? a base do programa é esse:

 

IdSMTP1.AuthenticationType := atLogin;

idSMTP1.Host := 'smtp.mail.yahoo.com.br' ;

idSMTP1.Port := 25;

idSMTP1.Username := edit1.Text;

idSMTP1.Password := edit2.Text;

idSMTP1.Connect(30000);

IdMessage1.From.address := edit1.Text;

IdMessage1.Sender.Name := edit1.Text;

IdMessage1.Sender.address := edit1.Text;

IdMessage1.Recipients.EMailaddresses := edit4.Text;

IdMessage1.Subject := edit3.Text;

idmessage1.Body := memo1.Lines;

IdSMTP1.Send(IdMessage1);

IdSMTP1.Disconnect;

edit4.Text := Memo2.Lines[0];

memo2.Lines.Delete(0);

timer1.Enabled := true;

spinedit1.Value := spinedit1.Value +1;

[DarkShade 52]

Não, pois isso é um sistema interno.