1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function DirExists(s: string): Boolean;
 var i: Integer;
 begin
  i := GetFileAttributes(PChar(s));
  Result := (i <> -1) and (FILE_ATTRIBUTE_DIRECTORY and i <> 0)
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  DIR: String;
begin
  DIR := '';
  if  Edit1.Text[Length(Edit1.Text)] <> ';' then Edit1.Text := Edit1.Text+';';  //ggf letzten seperator setzten !!

  for I := 0 to Length(Edit1.Text) do
    if (Edit1.Text[I] = ';') then begin
      if DirExists(DIR) then showmessage('Verzeichnis '+DIR+' existiert')
        else showmessage ('Verzeichnis '+DIR+' existiert nicht');
      DIR := '';
      end else DIR := Trim(DIR+Edit1.Text[I]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

const
  MSG = 'Verzeichnis "%s" existiert nicht.';
var
  I: Integer;
begin

  with TStringList.Create do
    try
      Delimiter := ';';
      DelimitedText := Edit1.Text;
      for I := 0 to Count - 1 do
        if not DirectoryExists(Strings[I]) then
          ShowMessage(Format(MSG, [Strings[I]]));
    finally
      Free;
    end;

end;