Cara Membuat Function Delphi 7

Deklarasi Function CardSpaceFormat(NoCard:string):string; Implementasi Function TForm1.CardSpaceFormat(NoCard:string):string; begin Result := copy(NoCard,1,4)+' '+copy(NoCard,5,4)+' '+copy(NoCard,9,4)+' '+copy(NoCard,13,4); end;