Füge mal begin ... end nach dem then ein
Delphi-Quellcode:
if (Ed_01.Text[i-1] <> 'x') and (Ed_01.text[g-1]<> 'y') then
begin // <- hier
z_1:=-strtofloat(Ed_01.Text[i_2-i]);
Ed_03.Text:='x_1 ist' + floattostr(x_1)+', y_1 ist' + floattostr(y_1)+' und z_1 ist' + floattostr(z_1);
end; // <- und hier