Delphi - Busqueda en un archivo de texto

EL problema es el siguiente:

tengo un archivo de texto que contiene dos datos numéricos separados por un ; y necesito la función lefpos para ese punto y coma para separar asignar los valores a dos variables aquí esta un ejemplo del código.

procedure TForm1.GraficarClick(Sender: TObject);
var
f : textfile;
linea: String;
x,y : Real;
begin
opendialog1.InitialDir := GetCurrentDir;
if opendialog1.Execute then begin
assignfile(f, opendialog1.FileName);
reset(f);
while not EoF(F) do
Readln(f, linea);
Trim(linea);
x:= leftstr(linea, ';');
y:= ;
self.Series1.AddXY(x,y);
Closefile(f)
end

else
exit;
end;

x := StrToFloat(LeftStr(linea,pos(';',linea)-1));
y := StrToFloat(RightStr(linea,length(linea)-pos(';',linea)));