Function LoadNamesList(FileName:String;var List:TStringList):boolean;
Var F:Text;
Buffer:String;
begin
Result := false;
AssignFile(F,FileName); // cannot possibly fail, right?
Try
Reset(F);
Try
Try
While Not eof(F) do
begin
readln(F,Buffer);
if trim(Buffer) <> '' Then List.Add(WinCPToUTF8(Buffer));
end;
Result := true;
except on e:Exception do // handle Read errors
ShowMessage(e.ToString);
end;
finally
CloseFile(F);
end
except on e:Exception do // handle reset errors
ShowMessage(e.ToString);
end;
end;