Bonsoir

Mon code ligne 6 deviens rouge à la compilation:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
procedure TCourriel.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
if not (Edit1.Text='')
then TidAttachment.Create(IdMessage1.MessageParts,Edit1.Text);
end;
end.
Pourriez vous m'aider Merci.