TStringlist splitten, neues problem

[Michael80]

Hallo leute,

ich lade mir ein txt file in eine TStringList, und will diese werte dann in einer datenbank speichern. Die einzelnen Spalten sind durch ; getrennt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var TempList: TStrings; 
begin 
    Templist := TStringlist.Create; 
    with Templist do begin 
    loadfromFile('C:\Datei.TXT'); 
    try 
    finally
    Templist.free; 
    end; 
    end; 
    end; 
end.

mir fehlt jetz irgendwie ein ansatz wie ich die einzelnen Zeilen durchlaufe und nach dem ;
aufteile die ergebnisse werden dann mit

insert into TABLE(FELD1, FELD2) VALUES ('wert1','wert2') hoffentlich in die datenbank gespeichert.


Ich hoff ihr verzeiht mir, aber ich bin neu in Delphi und grad am lernen.


Gruß

Michael