Membuat inisial nama dengan menggunakan Delphi

Pasti Anda pernah di minta membuat program yang pada bagian nama seseorang di buat menjadi sebuah inisial nama. misalnya : Adam Air Udara, maka inisial sebuah nama Adam Air Udara menjadi : AAU

Berikut ini script programnya tinggal di copy paste saja apabila Anda memerlukannya.

function inisial(const fullname:string):string;
var strList:TStringList;
i:integer;
strinisial:string;
begin
strList:=TStringList.Create;
try
strinisial:=”;
strList.DelimitedText:=fullname;
strList.Delimiter:=#32; //32=ascii utk spasi
for i:=0 to strList.count-1 do
begin
strinisial:=strinisial+copy(strList[i],1,1);
end;
result:=strinisial;
finally
strList.Free;
end;
end;