uses IniFiles;
function GetDateSeperator: string;
var
IniFile: TIniFile;
begin
IniFile := TIniFile.Create('win.ini');
try
Result := IniFile.ReadString('intl', 'sDate', '.');
finally
IniFile.Free;
end;
end;
// Kullanımı:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := GetDateSeperator;
end;