hvad har jeg gjort galt her

Du skal først have teksten i Edit1 lavet til tal.
StrToInt(Edit1.text)
Så skal der divideres med 4
StrToInt(Edit1.text) div 4
Så skal det hele laves til tekst igen
IntToStr(StrToInt(Edit1.text) div 4
Edit13.text:=IntToStr(StrToInt(Edit1.text) div 4

Derudover kommer en masse kontrol af om der er indtastet tal i Edit1.
Må resulatet af divisionen være et dicimaltal?

jo det må det gerne men max med 2 decimaler

try edit3.Text := currtostr(strtocurr(edit1.text) / 4);
  except
    begin
      edit3.text := 'Feltet er ikke nummerisk';
    end;
  end;

dette virker ikke

procedure TForm1.Edit13Change(Sender: TObject);
begin
try edit3.Text := currtostr(strtocurr(edit1.text) / 4);
  except
    begin
      edit3.text := 'Feltet er ikke nummerisk';
    end;
  end;
end;

Din procedure"navn" er forkert - Edit13Change - Hvad mon det er?
Du skal lave proceduren ifm. EXIT af feltet Edit1 - således at udregningen bliver foretaget, når du forlader Edit1 feltet:

procedure TForm1.Edit1Exit(Sender. TObject);
begin
try edit3.Text := currtostr(strtocurr(edit1.text) / 4);
  except
    begin
      edit3.text := 'Feltet er ikke nummerisk';
    end;
  end;
end;

det skal være sådan at når jeg skriver i edit1. 8 skal den i edit13 skrive 2 kr.

Det er præcis det, som prg. ovenover gør.

fandt ud af det