17-01-2022, Saat: 15:23
//MailMessage: TIdMessage; var Path: string; SR: TSearchRec; Path := ExtractFilePath(ParamStr(0)); if FindFirst(Path + '*.jpg', faAnyFile, SR) = 0 then begin repeat with TIdAttachmentFile.Create(MailMessage.MessageParts, Path + SR.Name) do begin ContentType := 'image/jpeg'; FileName := SR.Name; end; until FindNext(SR) <> 0; FindClose(SR); end;
Ayakkabıyı sefaletten
Çok sonraları tanıdım
Öyle ufuklarda mı olurmuş Allah'ım
Giyer giyer koşardım
Toprağın dostluğundan
Oyuncaklar yaptım çamurdan
Tenimin rengini aldım topraktan
Sen bakma esmerliğim sonradan...
Çok sonraları tanıdım
Öyle ufuklarda mı olurmuş Allah'ım
Giyer giyer koşardım
Toprağın dostluğundan
Oyuncaklar yaptım çamurdan
Tenimin rengini aldım topraktan
Sen bakma esmerliğim sonradan...

