Begin PathName:= AFileName(AFileName); {a variable in TEditForm privet part} Caption:= ExtractFileName(AFileName); With Memo1 do {Memo1 is TMemo component} Begin
ចាប់ផ្តើមឈ្មោះផ្លូវ: = AFileName (AFileName); {អថេរនៅក្នុង TEditForm ផ្នែក privet} ចំណងជើង: = ExtractFileName (AFileName); ជាមួយនឹងការ Memo1 ធ្វើ {Memo1 គឺជាសមាសភាគ TMemo} ចាប់ផ្តើម