여러가지 방법이 있겠지만 C++에서 사용하신 코드와 비슷한 구조이면서 간단한 방법은...

i := Pos(',', Edit4.Text);
if i > 0 then Edit5.Text := Copy(Edit4.Text, 1, i - 1)
else Edit5.Text := Edit4.Text;

이렇게 하면 될 것 같네요.


궁금이 님이 쓰신 글 :
: C++ 에서는 아래와 같은 방식으로 했는데
:
:    Comma := Edit4.Text.Pos(',');
:    Edit5.Text :=  Edit4.Text.SubString(0, Comma+1);
:
: 델파이는 스트링에서 콤마까지의 위치를 어떻게 찾는건지
: 어떻게 자르는건질 모르겠어요..
: 빠른 답변 부탁드려요 ㅜㅜ