tu n'as même pas besoin d'un TEdit, en ajoutant clipbrd dans les uses


procedure SMS(S : string);
begin
clipboard.AsText := s;
ShowMessage(S);
end;