Fórum Incompatible types: ´String´ and ´PChar´ #230850

Olá amigos,

Se possível, me ajudem com o código abaixo. Preciso abrir o OutLook já com diversos endereços de e-mail para remessa de mala direta. Os endereços estão em minha base de dados (Paradox). Quando uso o Códibo abaixo, [color=red:b379e4254c]com um único e-mail[/color:b379e4254c], funciona legal. Más, quando percorro a tabela buscando os endereços e juntando todos em uma string, vem o erro: [color=red:b379e4254c]Incompatible types: ´String´ and ´PChar´[/color:b379e4254c]. Como devo corrigir o código?

ShellExecute(Handle,´open´,´mailto:ajvieira@terra.com.br´?subject=assunto do email&body=mensagem a ser enviada´,nil,nil,SW_SHOWMAXIMIZED);


procedure TF_Cadastro.SpeedButton1Click(Sender: TObject);
var emails : String; lPrimeiro : Boolean;
begin
lPrimeiro := true;
TabCadastro.First;
while not TabCadastro.eof do begin
if TabCadastro.FieldByName(´EMail´).AsString > ´´ then begin
if lPrimeiro then begin
emails := emails+TabCadastro.FieldByName(´EMail´).AsString;
lPrimeiro := false;
end else begin
emails := emails+´;´+TabCadastro.FieldByName(´EMail´).AsString;
end;
end;
TabCadastro.Next;
end;
ShellExecute(Handle,´open´,´mailto:´+emails+´?subject=assunto do email&body=mensagem a ser enviada´,nil,nil,SW_SHOWMAXIMIZED);
end;