Something

procedure TForm1.Button1Click(Sender: TObject);
var
myString : TStringList;
begin
myString:=TStringList.Create;
myString.Delimiter:=';';
myString.DelimitedText:=Edit1.Text;
Label1.Caption:=myString[0];
Label2.Caption:=myString[1];
Label3.Caption:=myString[2];
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
myString : TStringList;
 
begin
myString:=TStringList.Create;
myString.Add('I Have a bruger;Nope;Yes I do');
myString.Add('You shit on me; Nope; Yes I do');
myString.SaveToFile('Test.txt');
end;
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
var
myString : TStringList;
begin
myString:=TStringList.Create;
myString.LoadFromFile('Test.txt');
Edit1.Text:=myString[1];
myString.Delimiter:=';';
myString.DelimitedText:=Edit1.Text;
Label1.Caption:=myString[0];
Label2.Caption:=myString[1];
Label3.Caption:=myString[2];
end;