помагите найти ошибку

[mrs.rafanadal]

код

var x,y,k,l:real;
begin
case ListBox1.ItemIndex of
0: k:=0.01;
1: k:=10;
2: k:=0.3048;
3: k:=100;
4: k:=0.0254;
5: k:=1000;
6: k:=1;
7: k:=0.000001;
8: k:=1609.344;
9: k:=0.000000001;
10: k:=0.9144;
end;
case ListBox2.ItemIndex of
0: l:=100;
1: l:=0.1;
2: l:=3.28083;
3: l:=0.01;
4: l:=39.36996;
5: l:=0.001;
6: l:=1;
7: l:=1000000;
8: l:=1609.344;
9: l:=1000000000;
10: l:=1.09361;

end;
if Edit1.Text='' then
Edit1.Text:= 'введите число' and Edit2.Text:= 'введите число'
else

x:=StrToFloat(Edit1.Text);
y:=x*k*l;
Edit2.Text:=FloattoStr(y);
end;

пишет
[Error] Unit1.pas(113): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

[Terazoid]

Вместо этого:

if Edit1.Text='' then
Edit1.Text:= 'введите число' and Edit2.Text:= 'введите число'

Попробуйте написать:

if Edit1.Text='' then
begin
Edit1.Text:= 'введите число';
Edit2.Text:= 'введите число'
end

[mrs.rafanadal]

спасибо попробуем

[vovk]

замени

if Edit1.Text='' then
Edit1.Text:= 'введите число' and Edit2.Text:= 'введите число' 
else

на

if Edit1.Text='' then
begin
Edit1.Text:= 'введите число';
 Edit2.Text:= 'введите число'; 
end
else

уже сказали

только точку с запятой добавить после присвоения значения edit2.text;