procedure TForm1.confCheck();
var
MyFile:Text;
Line1,Line6:String;
begin
AssignFile(MyFile,cMyFileName);
Reset(MyFile);
ReadLn(MyFile,Line1);
ReadLn(MyFile,Line6);
sScreenSize:=Line6;
CloseFile(MyFile);
if Line1='init=1' then
Button1.Enabled:=false
else
Button1.Enabled:=true;
if sScreenSize='size=XL' then
Faktor:=1
ComboBox1.ItemIndex:=0 //I thought this was the right but it's wrong.
else if sScreenSize='size=L' then
Faktor:=1.6
ComboBox1.ItemIndex := 1
else if sScreenSize='size=M' then
Faktor:=2.4
ComboBox1.ItemIndex:=2
else if sScreenSize='size=S' then
Faktor:=3.6;
ComboBox1.ItemIndex:=3